home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 09 (1989-09)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 10, No. 09 (1989-09)(MindCraft Publishing)(Side A)[a].po
/
SORT.10.ITEM.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
176b
|
10 lines
10 DIM A$(10)
20 FOR X = 1 TO 9
30 INPUT "ITEM=";A$(X)
40 NEXT
50 A$(10) = ""
60 PRINT "SORTING....": CALL 768A$(1)
70 FOR X = 1 TO 9
80 PRINT A$(X)
90 NEXT
100 END